struct testtype{
Long var1;
String var2;
SafeArray<String> var3;
};
struct testtype2{
Long var1;
String var2;
SafeArray<testtype> var3;
};
namespace system1{
struct udt2{
String s;
};
struct udt{
SafeArray<udt2> funcfoo;
};
SafeArray<udt> arr;
namespace core{
#line 13 "F:\\v7basic\\test.bas"
void subcall(Long x,Long y){
#line 13 "F:\\v7basic\\test.bas"
#line 13 "F:\\v7basic\\test.bas"
ERROR_HEADER}
#line 17 "F:\\v7basic\\test.bas"
Integer tfunction(Long x,Integer y,Long z){
#line 17 "F:\\v7basic\\test.bas"
Integer tfunctionRET;Integer xd;Double yc;Integer xu;SafeArray<Long> xxx;String s;
#line 17 "F:\\v7basic\\test.bas"
ERROR_HEADER
#line 17 "F:\\v7basic\\test.bas"
tfunctionRET=0;
#line 20 "F:\\v7basic\\test.bas"
xd=0;yc=0;xu=0;
#line 21 "F:\\v7basic\\test.bas"
;
#line 22 "F:\\v7basic\\test.bas"
x=CLng((Boolean)(yc==(Integer)123));
#line 23 "F:\\v7basic\\test.bas"
s=L"";
#line 24 "F:\\v7basic\\test.bas"
x=CDbl(String(L"123"));
#line 25 "F:\\v7basic\\test.bas"
system1::arr.get<2>()[(Integer)1][(Integer)7].funcfoo.get<2>()[(Integer)7][(Integer)4].s=CStr((Integer)444);
#line 27 "F:\\v7basic\\test.bas"
system1::core::subcall(CLng((Integer)7),CLng((Integer)8));
#line 28 "F:\\v7basic\\test.bas"
return tfunctionRET;
#line 30 "F:\\v7basic\\test.bas"
return tfunctionRET;}}
}
#line 45 "F:\\v7basic\\test.bas"
SafeArray<String>& arraytest(SafeArray<String>& g){
#line 45 "F:\\v7basic\\test.bas"
SafeArray<String> arraytestRET;SafeArray<String> ff;testtype mystruct;testtype2 mystruct2;
#line 45 "F:\\v7basic\\test.bas"
ERROR_HEADER
#line 45 "F:\\v7basic\\test.bas"
;
#line 47 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 47 "F:\\v7basic\\test.bas"
ff=boost::multi_array<String, 2>(boost::extents[1,10][9,68]);
#line 47 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 49 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 49 "F:\\v7basic\\test.bas"
mystruct=testtype();
#line 49 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 50 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 50 "F:\\v7basic\\test.bas"
mystruct2=testtype2();
#line 50 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 52 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 52 "F:\\v7basic\\test.bas"
mystruct2.var2=CStr(mystruct.var1);
#line 52 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 54 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 54 "F:\\v7basic\\test.bas"
ff.get<2>()[(Integer)1][(Integer)9]=String(L"its");
#line 54 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 55 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 55 "F:\\v7basic\\test.bas"
ff.get<2>()[(Integer)2][(Integer)55]=String(L"working");
#line 55 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 56 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 56 "F:\\v7basic\\test.bas"
arraytestRET=ff;
#line 56 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 57 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 57 "F:\\v7basic\\test.bas"
return arraytestRET;
#line 57 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END}
#line 59 "F:\\v7basic\\test.bas"
Boolean booltest(){
#line 59 "F:\\v7basic\\test.bas"
Boolean booltestRET;SafeArray<String> arr;SafeArray<String> arr2;String s;SafeArray<String> ffft;Long x;Boolean _tmp_1;Long y;Boolean _tmp_2;Boolean _tmp_3;Boolean _tmp_4;Long _tmp_5;Long _tmp_6;
#line 59 "F:\\v7basic\\test.bas"
ERROR_HEADER
#line 59 "F:\\v7basic\\test.bas"
booltestRET=0;
#line 61 "F:\\v7basic\\test.bas"
arr=boost::multi_array<String, 2>(boost::extents[0,5][0,5]);
#line 62 "F:\\v7basic\\test.bas"
arr2=boost::multi_array<String, 2>(boost::extents[1,10][9,68]);
#line 63 "F:\\v7basic\\test.bas"
s=L"";
#line 65 "F:\\v7basic\\test.bas"
;
#line 66 "F:\\v7basic\\test.bas"
ffft=arraytest(arr);
#line 68 "F:\\v7basic\\test.bas"
s=arr2.get<2>()[(Integer)1][(Integer)9];
#line 69 "F:\\v7basic\\test.bas"
s=arr2.get<2>()[(Integer)2][(Integer)55];
#line 72 "F:\\v7basic\\test.bas"
arr2.get<2>()[(Integer)1][(Integer)9]=String(L"wtf");
#line 73 "F:\\v7basic\\test.bas"
arr.get<2>()[(Integer)4][(Integer)4]=String(L"its my life");
#line 74 "F:\\v7basic\\test.bas"
arr.get<2>().resize(boost::extents[0,11][0,68]);
#line 76 "F:\\v7basic\\test.bas"
s=arr.get<2>()[(Integer)4][(Integer)4];
#line 77 "F:\\v7basic\\test.bas"
s=(String)(String(L"12")+String(L"99"));
#line 79 "F:\\v7basic\\test.bas"
s=arr2.get<2>()[(Integer)1][(Integer)9];
#line 81 "F:\\v7basic\\test.bas"
booltestRET=CBool((Integer)0);
#line 82 "F:\\v7basic\\test.bas"
x=0;
#line 85 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 85 "F:\\v7basic\\test.bas"
_tmp_1=(Boolean)(x<(Integer)7);
#line 85 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 85 "F:\\v7basic\\test.bas"
while (_tmp_1==True){
#line 86 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 86 "F:\\v7basic\\test.bas"
x=(Long)(x+(Integer)1);
#line 86 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 88 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 88 "F:\\v7basic\\test.bas"
_tmp_1=(Boolean)(x<(Integer)7);
#line 88 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 88 "F:\\v7basic\\test.bas"
}
#line 90 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 90 "F:\\v7basic\\test.bas"
x=CLng((Integer)10);
#line 90 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 90 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 90 "F:\\v7basic\\test.bas"
_tmp_6=CLng((Integer)150);
#line 90 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 90 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 90 "F:\\v7basic\\test.bas"
_tmp_5=CLng((Integer)10);
#line 90 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 90 "F:\\v7basic\\test.bas"
for (;x<=_tmp_6;){
#line 91 "F:\\v7basic\\test.bas"
if ((Boolean)(x==(Integer)100)){
#line 91 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 91 "F:\\v7basic\\test.bas"
break;
#line 91 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END}
#line 92 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 92 "F:\\v7basic\\test.bas"
x=(Long)(x+_tmp_5);
#line 92 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 92 "F:\\v7basic\\test.bas"
}
#line 94 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 94 "F:\\v7basic\\test.bas"
y=0;
#line 94 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 95 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 95 "F:\\v7basic\\test.bas"
factorial(CLng((Boolean)(x==(Integer)8)));
#line 95 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 97 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 97 "F:\\v7basic\\test.bas"
_tmp_2=(Boolean)(x<(Integer)8);
#line 97 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 97 "F:\\v7basic\\test.bas"
while (_tmp_2==True){
#line 98 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 98 "F:\\v7basic\\test.bas"
x=(Long)(x+(Integer)1);
#line 98 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 99 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 99 "F:\\v7basic\\test.bas"
_tmp_2=(Boolean)(x<(Integer)8);
#line 99 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 97 "F:\\v7basic\\test.bas"
}
#line 100 "F:\\v7basic\\test.bas"
do {
#line 101 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 101 "F:\\v7basic\\test.bas"
y=x;
#line 101 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 102 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 102 "F:\\v7basic\\test.bas"
break;
#line 102 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 103 "F:\\v7basic\\test.bas"
}while (true);
#line 104 "F:\\v7basic\\test.bas"
do {
#line 106 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 106 "F:\\v7basic\\test.bas"
_tmp_4=(Boolean)(x<(Integer)8);
#line 106 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END
#line 106 "F:\\v7basic\\test.bas"
}while (_tmp_4==False);
#line 110 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_START
#line 110 "F:\\v7basic\\test.bas"
return booltestRET;
#line 110 "F:\\v7basic\\test.bas"
ERROR_SAFE_SKIP_END}
#line 112 "F:\\v7basic\\test.bas"
Long factorial(Long n){
#line 112 "F:\\v7basic\\test.bas"
Long factorialRET;
#line 112 "F:\\v7basic\\test.bas"
ERROR_HEADER
#line 112 "F:\\v7basic\\test.bas"
factorialRET=0;
#line 113 "F:\\v7basic\\test.bas"
if ((Boolean)(n<=(Integer)0)){
#line 114 "F:\\v7basic\\test.bas"
factorialRET=CLng((Integer)1);}else{
#line 116 "F:\\v7basic\\test.bas"
factorialRET=(Long)(n*factorialRET);}
#line 118 "F:\\v7basic\\test.bas"
return factorialRET;}
#line 120 "F:\\v7basic\\test.bas"
String ffftfunction(Long x,Integer& xg,Long& z){
#line 120 "F:\\v7basic\\test.bas"
String ffftfunctionRET;
#line 120 "F:\\v7basic\\test.bas"
ERROR_HEADER
#line 120 "F:\\v7basic\\test.bas"
ffftfunctionRET=L"";
#line 121 "F:\\v7basic\\test.bas"
x=(Long)((Integer)5+(Long)((Integer)7*(Integer)8));
#line 123 "F:\\v7basic\\test.bas"
ERROR_SAFE_START(1);
#line 123 "F:\\v7basic\\test.bas"
x=CLng(system1::core::tfunction(CLng((Integer)7),xg,0));
#line 123 "F:\\v7basic\\test.bas"
ERROR_SAFE_END(lastline,1);
#line 124 "F:\\v7basic\\test.bas"
ERROR_SAFE_START(2);
#line 124 "F:\\v7basic\\test.bas"
ffftfunctionRET=String(L"hello world");
#line 124 "F:\\v7basic\\test.bas"
ERROR_SAFE_END(lastline,2);
#line 126 "F:\\v7basic\\test.bas"
if ((Boolean)(x>(Integer)0)){
#line 126 "F:\\v7basic\\test.bas"
ERROR_SAFE_START(3);
#line 126 "F:\\v7basic\\test.bas"
x=CLng((Double)(x+CDbl(String(L"dd"))));
#line 126 "F:\\v7basic\\test.bas"
ERROR_SAFE_END(lastline,3);}
#line 127 "F:\\v7basic\\test.bas"
ERROR_SAFE_START(4);
#line 127 "F:\\v7basic\\test.bas"
goto llastline;;
#line 127 "F:\\v7basic\\test.bas"
ERROR_SAFE_END(lastline,4);
#line 128 "F:\\v7basic\\test.bas"
llastline:
#line 129 "F:\\v7basic\\test.bas"
l911:
#line 130 "F:\\v7basic\\test.bas"
ERROR_SAFE_START(5);
#line 130 "F:\\v7basic\\test.bas"
EXCEPTION_RESUME_NEXT;
#line 130 "F:\\v7basic\\test.bas"
ERROR_SAFE_END(lastline,5);
#line 131 "F:\\v7basic\\test.bas"
ERROR_SAFE_START(6);
#line 131 "F:\\v7basic\\test.bas"
return ffftfunctionRET;
#line 131 "F:\\v7basic\\test.bas"
ERROR_SAFE_END(lastline,6);EXCEPTION_JUMP_TABLE_START
EXCEPTION_ENTRY(1);
EXCEPTION_ENTRY(2);
EXCEPTION_ENTRY(3);
EXCEPTION_ENTRY(4);
EXCEPTION_ENTRY(5);
EXCEPTION_ENTRY(6);
EXCEPTION_JUMP_TABLE_END
}
#line 133 "F:\\v7basic\\test.bas"
Variant fact(){
#line 133 "F:\\v7basic\\test.bas"
Variant factRET;Integer tokprec;Double exprprec;Integer xu;
#line 133 "F:\\v7basic\\test.bas"
ERROR_HEADER
#line 133 "F:\\v7basic\\test.bas"
;
#line 134 "F:\\v7basic\\test.bas"
tokprec=0;exprprec=0;xu=0;
#line 135 "F:\\v7basic\\test.bas"
if ((Boolean)(tokprec!=exprprec)){
#line 136 "F:\\v7basic\\test.bas"
factRET=CVar((Boolean)(CStr(system1::core::tfunction)==String(L".")));}
#line 137 "F:\\v7basic\\test.bas"
else if ((Boolean)(tokprec<=exprprec)){}else{
#line 140 "F:\\v7basic\\test.bas"
factRET=CVar((Integer)0);}
#line 142 "F:\\v7basic\\test.bas"
factRET=CVar((Long)((Integer)5+(Long)((Integer)7*(Integer)8)));
#line 143 "F:\\v7basic\\test.bas"
return factRET;}
